home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
os2
/
privf.zip
/
TEST.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1993-01-29
|
424b
|
18 lines
/* */
Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
'@echo off'
RetCode = SysCreateObject( "PrivF", "Mon dossier", "<WP_DESKTOP>", "PASSWORD=benjamin;LOCKED=YES;CLOSELOCK=YES;COMMONPWD=YES;OBJECTID=<MyFolder>")
if RetCode then
say 'Private Folder created'
else do
say 'Error creating Private Folder'
say RetCode
exit(1)
end
say 'A Folder has been created'